



#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# The list of default extrusion aesthetics
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
extrusion_aesthetics <- list(
  extrude_face_fill     = 'grey20',
  extrude_face_alpha    = 1,
  extrude_edge_colour   = NA,
  extrude_edge_alpha    = 1,
  extrude_edge_size     = 1,
  extrude_z             = 0.05
)
